home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / mail / thor201.lha / THOR_2.0 / thor.lha / rexx / Unquote.fse < prev    next >
Text File  |  1995-05-15  |  504b  |  29 lines
  1. /* unqoute.fse - reduce the layer of qoute chars (">") in a block of text
  2. ** to just one level.
  3. */
  4.  
  5. options results
  6.  
  7. YPOS
  8. currline = result
  9. XPOS
  10. currcolumn = result
  11. MSGLENGTH
  12. lastline = result
  13.  
  14. do i=currline to lastline
  15.         SETPOS 1 i
  16.         GETLINE
  17.         line = result
  18.         if(line ~= "") then do
  19.                 DELETELINES
  20.                 NEWLINE
  21.                 SETPOS 1 i
  22.                 INSERTINPUT ">"||strip(line, L, ">")
  23.         end
  24.         else break
  25. end
  26.  
  27. SETPOS currcolumn currline
  28.  
  29.